$[ = 2;
@a=(1,2,3,4,5);
print $a[-2];